// Query Control TurboIRC Script
// Category : Utilities
// Copyright © Chourdakis Michael , 1998

// For * PRIVMSG $mynick :* LOCKED
// Load it : /_event ControlQueries 3 0 0 +:* PRIVMSG $mynick :*|||?.\demos\qc.txt

if (FindWindowFromTitle($nick)!=-1)
 // already exists
 #unlock
 return
endif

int IsSpam = 0
string TimeDate = sprintf("%u-%u , %u:%u",$day,$month,$_hour,$minute)


if (IsMatching("$3*","*http://*",1,0)==1)
 IsSpam = 1
endif
 
if (IsSpam==0)
 /query MyQueryControl
 /addtext MyQueryControl ***Query [%TimeDate%] from $nick!$ident@$IP $3*
 return
endif

// Here , it is SPAM
string ToSet = sprintf("%s!%s@%s [%s] : %s\r\n",$nick,$ident,$IP,TimeDate,"$3*")
string IniF = "C:\\TURBOIRC\\spam.txt"

AppendText(IniF,ToSet)
/query MyQueryControl
/addtext MyQueryControl ***SPAM Query [%TimeDate%] from $nick!$ident@$IP $3* (logged)